home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / os2 / filespy.zip / Install.Cmd < prev    next >
Encoding:
Text File  |  1996-02-25  |  1.1 KB  |  43 lines
  1. /* WPS-Installationsroutine für Filespy               */
  2. /* Anlegen eines Programmobjekts auf dem WPS-Desktop  */
  3.  
  4. CALL rxfuncadd sysloadfuncs, rexxutil, sysloadfuncs
  5. CALL sysloadfuncs
  6.  
  7. '@ECHO OFF'
  8.  
  9. /* Abfrage, ob Filespy/2 wirklich installiert ist */
  10. Path = Directory()
  11. CALL SysFileTree Path'\Filespy.exe', Datei, 'F'
  12. IF Datei.0 < 1 THEN
  13. DO
  14.    SAY 'Filespy/2 ist im Verzeichnis <'Path'> noch nicht installiert.'
  15.    SAY 'Filespy/2 is not installed in directory <'Path'>.'
  16.    EXIT
  17. END
  18.  
  19. Klasse='WPProgram'
  20. Titel='FileSpy/2'
  21. Ort='<WP_DESKTOP>'
  22. Param='PROGTYPE=WINDOWABLEVIO;NOAUTOCLOSE=YES;EXENAME='Path'\FileSpy.EXE;ICONFILE='Path'\Fs2_b.ICO;'
  23. CALL CreateObject
  24.  
  25. SAY
  26. SAY 'Fertig! Das Programmsymbol ist jetzt angelegt.'
  27. SAY 'Finished! The icon is now availble on the desktop.'
  28. EXIT
  29.  
  30. /* Unterprogramm: Objekt anlegen */
  31. CreateObject:
  32. SAY 'Es wird das "Objekt" 'Titel' angelegt...'
  33. SAY 'Creating "object" 'Titel' ...'
  34. result = SysCreateObject(Klasse, Titel, Ort, Param)
  35. if result = 1 THEN
  36.   SAY '... ok.'
  37. ELSE do
  38.   SAY 'Fehler! / error!'
  39.   exit
  40. END
  41.  
  42. RETURN
  43.